# ======================================================================
#
# Copyright (C) ADN
# ADN::SERVICE::Param
# Description:
#  - parametres pour l'utilisations des services
#  - parameters for the utilisation of the service
#
# ======================================================================

package ADN::SERVICE::Param;

use strict;
use ADN::SERVICE::Constant;

sub new {
    my (%param) = @_;
    return param( $param{Param} );
}

# #######################
# SPLIT THE PARAM
# #######################
sub param {
    my ( $nbr, $i, $prm );
    my ( @tab, @prm, @tmp );
    $prm = $_[0];
    @tab = split /BIGPARAM/sm, $prm;
    $nbr = scalar @tab;
    for ( $i = 0; $i < $nbr; $i++ ) {
	   @tmp = split /SMLPARAM/sm, $tab[$i];
	   foreach ( @tmp ) {
	    push @prm, $_;
	   }
    }
    return @prm;
}

# #######################
# DESTROY OBJECT
# #######################
sub DESTROY {
    my $self = shift;
    return;
}
1;
__END__
